home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / start.exe / start.DXR / 00001.ls next >
Encoding:
Text File  |  1995-03-15  |  597 b   |  24 lines
  1. on exitFrame
  2.   set rumple to the searchPath
  3.   set rump to getAt(rumple, count(rumple))
  4.   if the colorDepth <> 8 then
  5.     set ralert to "How Many Bugs? was designed to run in 256 colors."
  6.     alert(ralert)
  7.     if the colorDepth < 8 then
  8.       quit()
  9.     end if
  10.   end if
  11.   set stoop to FileIO(mnew, "read", rump & "ipl")
  12.   if objectp(stoop) then
  13.     stoop(mdispose)
  14.   else
  15.     alert("Please put the How Many Bugs? CD into your CD-Drive and try again.")
  16.     quit()
  17.   end if
  18.   if the machineType < 256 then
  19.     go(1, the pathName & "bugs:ipl")
  20.   else
  21.     go(1, the pathName & "bugs\ipl")
  22.   end if
  23. end
  24.